home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2611.ZIP / MANIFEST.ZIP / MANIFEST.PRG < prev    next >
Text File  |  1988-04-14  |  1KB  |  52 lines
  1. *******************************
  2. *        MANIFEST.PRG         *
  3. *  MANIFEST SYSTEM MAIN MENU  *
  4. *        APR 14, 1988         *
  5. *          GUY DUBEC          *
  6. *******************************
  7. CLEA
  8. SET BELL OFF
  9. SET TALK OFF
  10. SET STAT OFF
  11. SET CONF ON
  12. STOR ' ' TO CHOICE
  13. STOR 'F' TO END
  14. DO WHIL END='F'
  15.   @6,0 CLEA
  16.   @1,23 TO 5,55 DOUBLE
  17.   @2,24 TO 4,54 DOUBLE
  18.   @3,26 SAY 'Manifest Information System'
  19.   @7,33 TO 9,46 DOUBLE
  20.   @8,35 SAY 'Main Menu'
  21.   @11,17 TO 20,64
  22.   @12,22 SAY '1 - Enter a New Manifest'
  23.   @13,22 SAY '2 - Close a Manifest'
  24.   @14,22 SAY '3 - Display Manifest Information'
  25.   @15,22 SAY '4 - Print Standard Reports'
  26.   @17,22 SAY 'X - Leave Manifest Information System'
  27.   @19,22 say 'Enter your choice and press <ENTER> ' GET CHOICE
  28.   @22,0 SAY 'Make sure you have pressed the <CAPS LOCK> key so all;
  29.  entries are upper case.'
  30.   READ
  31.   DO CASE
  32.     CASE CHOICE='1'
  33.       DO MANADD
  34.     CASE CHOICE='2'
  35.       DO MANCLO
  36.     CASE CHOICE='3'
  37.       DO MANDIS
  38.     CASE CHOICE='4'
  39.       DO MANPRN
  40.     CASE UPPER(CHOICE)='X'
  41.       CLEAR
  42.       RETURN
  43.     OTHERWISE
  44.       ?CHR(7)
  45.       @20,20 SAY 'Invalid Entry - Try Again'
  46.       STOR ' ' TO CHOICE
  47.       ?
  48.       WAIT 'Press any key to continue . . .'
  49.       @20,0 CLEAR
  50.   ENDCASE
  51. ENDDO
  52.